home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Critical Thinking Skills / Workplace Effectiveness: Critical Thinking Skills.iso / pc / Files / Patterns.dxr / 00001_Startup.ls next >
Encoding:
Text File  |  1998-09-16  |  733 b   |  26 lines
  1. global gMasterData, gExtendData, buttonSp, coinSp, coinCoverSp, responseSp, answerButSp, greyScreenSp, numberPanelSp, chooseSkillSp
  2.  
  3. on prepareMovie
  4.   setUserArea(gMasterData, #patterns)
  5.   setFingerCursor(#on, [39, 40, 41, 42, 43, 44])
  6.   set gExtendData to new(script "Extend parent")
  7.   set numberPanelSp to 14
  8.   set buttonSp to 15
  9.   set responseSp to 60
  10.   set answerButSp to 19
  11.   set chooseSkillSp to 20
  12.   set coinSp to 56
  13.   set coinCoverSp to 61
  14.   set greyScreenSp to 23
  15.   initFields()
  16.   set the keyDownScript to "quitCatcher"
  17.   cursor(0)
  18. end
  19.  
  20. on initFields
  21.   set vEmptyList to [5, 8, 11, 18, 21, 24, 31, 34, 37, 44, 47, 50]
  22.   repeat with x in vEmptyList
  23.     put " Explanation:" into line x of field "extendPrint"
  24.   end repeat
  25. end
  26.